home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / mod2tutb.zip / BITOPS.DEF < prev    next >
Text File  |  1989-01-18  |  1KB  |  30 lines
  1. DEFINITION MODULE BitOps;
  2.  
  3. (*       Copyright (c) 1987, 1989 - Coronado Enterprises           *)
  4.  
  5. EXPORT QUALIFIED LogicalAND,      (* Note;                         *)
  6.                  LogicalOR,       (*   All of these operations are *)
  7.                  LogicalXOR,      (*   performed in a bitwise man- *)
  8.                  LogicalNOT;      (*   ner with no carry to higher *)
  9.                                   (*   level bits.                 *)
  10.  
  11. PROCEDURE LogicalAND(In1, In2 : CARDINAL) : CARDINAL;
  12.                     (* This procedure obtains the logical AND of   *)
  13.                     (* the arguments and returns the value.        *)
  14.  
  15. PROCEDURE LogicalOR(In1, In2 : CARDINAL) : CARDINAL;
  16.                     (* This procedure obtains the logical OR of    *)
  17.                     (* the arguments and returns the value.        *)
  18.  
  19. PROCEDURE LogicalXOR(In1, In2 : CARDINAL) : CARDINAL;
  20.                     (* This procedure obtains the logical XOR of   *)
  21.                     (* the argiments and returns the value.        *)
  22.  
  23. PROCEDURE LogicalNOT(In1 : CARDINAL) : CARDINAL;
  24.                     (* This procedure returns the bitwise comple-  *)
  25.                     (* ment of the argument.                       *)
  26.  
  27. END BitOps.
  28.  
  29.  
  30.